FAX  503-757-7027  TELRX  258519  CTEK 


EaTeCH  INC. 


P.O.  Box  779 


Corvallis,  Oregon  97339 


503-757-9716 


AD-A252  185 


PROGRESS  REPORT 
TO 

OFFICE  OF  NAVAL  RESEARCH 


FOR  CONTRACT  NO:  N00014-90.C-0123 

TITLE:  Development  of  an  Expendable  Particle  Sensor 


ITEM  NO:  OOOIAA 

DATE:  30  April  92 


X 


2:. 


StATEMENt 

Approved  lof  public  roleoa*; 
DittiUmdon  OuBglfd 


n 


Robert  Bartz 
Principal  Investigafor 


4^ 


92-12524 

■■■■■■HI 


•  2  5  11  007 


A 


Statement  A  per  telecon 

Dr.  Richard  Spinrad  ONR/Code  1123 

Arlington,  VA  22217-5000 

NWW  6/10/92 


iMMSioa  For 

WflC  TiB 
Uaaonc :n«e4 
jywilf  i.«at  i  ocL. 


PROGRESS  REPORT:  Development  of  an  Expendable  Particle  Sensor  _ _ _ 

trllwitltn/ _ 

Sea  Tech  Inc.  Avatlabiiitr  Codes 

rnntrflrt  Nn.  N00014.90.r.01 2.3  C»«ll  and/or 


Contract  No.  N00014-90-C-0123 
Item  No.  OOOIAA 


Speolal 


INTRODUCTION:  ' _ | _ 

This  report  documents  progress  related  to  the  Phase  II  Development  of  the  Expendable  Particle 
Sensor,  (EPS)  during  the  time  period  of  August  through  Septemter  1991.  Between  the 
completion  of  Phase  1  and  the  beginning  of  Phase  II  funding,  considerable  progress  was  made  by 
Sea  Tech  to  improve  the  design  of  the  EPS.  This  progress  is  included  in  this  report  to  show  the 
status  of  the  EPS  development  prior  to  ONR  Phase  II  funding  which  started  in  August  1991. 

BACKGROUND: 

ONR  funded  a  SBIR  Phase  I  program  to  determine  the  feasibility  of  the  EPS  and  this  was 
completed  in  October  1990.  The  work  carried  out  during  this  program  was  the  investigation  and 
testing  of  a  variety  of  forward  and  back  scattering  sensors  and  the  preliminary  design  ^  testing  of 
a  data  telemetry  system.  This  work  demonstrated  the  feasibility  of  building  sensitive,  low  cost 
expendable  scattering  and  temperature  sensors.  Phase  II  was  funded  by  ONR  with  a  start  date  of 
August  1992. 

In  the  interim  period  between  Phase  I  and  Phase  II,  the  scattering  sensor  development  was 
funded  by  Sea  Tech.  During  this  period  considerable  improvements  were  made  in  design  of  the 
sensor.  Scattering  sensor  designs  were  developed  which  could  easily  be  modified  to  fit  in  the  side 
of  a  standard  expendable  probe,  the  sensor  was  designed  using  dual  LEDs  to  double  the  light 
output  without  using  additional  power,  and  tests  were  done  to  determine  the  full  range  of  sediment 
concentrations  measurable  with  the  sensor.  In  addition,  the  data  telemetry  system  was  redesigned 
to  send  and  receive  five  channels  of  data  12  times  per  second.  This  work,  funded  by  Sea  Tech,  is 
described  in  detail  in  Section  1  of  this  report. 

The  continuation  of  the  scattering  sensor  development,  funded  by  the  Phase  II  ONR  SBIR 
contract  shown  above  became  effective  on  21  August  1992.  Section  2  of  this  report  documents 
progress  related  to  the  development  of  the  expendable  underwater  forward  scattering  sensor  from 
August  21  to  September  30, 1991.  Work  during  this  time  consisted  primarily  of  breadboarding 
and  testing  the  five-diannel  data  telemetry  system.  A  detailed  account  of  this  work  is  presented  in 
section  2  of  this  report 

RESULTS: 

SECTION  1,  WORK  FUNDED  BY  SEA  TECH,  OCTOBER  1990  TO  AUGUST  1991 

As  stated  in  the  introduction  several  improvements  were  made  in  the  scattering  sensor  design 
between  the  completion  of  Phase  I  and  the  beginning  of  Phase  II.  A  non-expendable  underwater 
forward  scattering  sensor  micro  structure  pro^  was  built  and  tested  in  Or^on  State  University's 
Qiameleon  microstructure  instrumentation  package.  The  design  was  subsequently  simplified  and 
is  better  suited  for  use  with  standard  expendable  probes  to  the  extent  that  only  vary  minor 
modifications  to  the  probe  and  the  sensor  package  will  be  necessary  to  install  the  sensor  in  the 


i 


Sparton  expendable  probe  body.  The  drawing  for  this  probe  is  shown  in  Figure  1  and  described  in 
^pendix  A. 

The  light  output  of  the  scattering  sensor  was  doubled  using  the  same  power  by  connecting  two 
LEDs  in  series;  the  old  design  with  a  single  LED  did  not  take  full  advantage  of  the  available 
voltage. 

Several  sensor  designs  were  tested  to  determine  the  high  sediment  concentration  end  of  the 
linear  range  of  the  scattering  sensor.  Figure  2  is  a  plot  of  the  results;  with  the  light  source  close  to 
the  detector,  the  scattering  sensor  responds  linearly  up  to  sediment  concentrations  of  several  grams 
per  liter.  In  Phase  I  it  was  shown  that  the  forward  li^t  scattering  sensor  was  capable  of 
measuring  concentrations  as  low  as  a  few  micrograms  per  liter,  as  shown  in  Figure  3.  These  two 
figures  simw  that  the  linear  range  of  this  sensor  extends  from  a  few  micrograms  per  liter  to  greater 
than  a  few  grams  per  liter,  excelling  six  orders  of  magnitude  of  sediment  concentrations.  Thus 
the  forward  light  scattering  sensor  should  be  capable  of  measuring  any  naturally  occurring 
sediment  concentration  in  either  ocean  or  fresh  water.  The  performance  of  the  forward  li^t 
scattering  sensor  for  high  concentrations  of  suspended  sediment  is  discussed  in  detail  in  Appendix 
A. 


Work  continued  with  the  development  of  a  five-channel  telemetry  system  from  the  basic  system 
developed  in  Phase  1.  The  transmission  of  five  channels  of  data  twelve  times  per  second  is 
required  to  sample  the  water  column  with,  a  depth  resolution  of  1/2  meter  assuming  a  probe  drop 
rate  of  6  meters  per  second.  The  five  channels  are:  1.  Water  Temperature  2.  Light  Scattering  3. 
Probe  Body  Temperature  4.  Positive  Supply  Voltage  5.  Ground. 

A  schematic  of  the  five-channel  telemetry  system  transmitter  is  shown  in  Figure  4.  Tte  timing 
diagram,  Figure  5,  illustrates  how  this  system  operates.  Three  of  the  NAND  gates  of  the  4011 
provide  a  12.2  KHz  signal  which  are  fed  into  the  4020  Binary  counter  which  controls  the  timing 
for  this  system  and  provides  768  Hz  to  the  scattering  sensor  for  modulating  the  LEDs.  Input  to  the 
4051  multiplexer  is  such  that  scattering  and  water  temperature  voltages  arc  output  twice  every  167 
milliseconds,  or  12  times  per  second  (see  Figure  5).  Body  temperature  is  output  6  times  per 
second,  which  gives  us  more  than  adequate  data  for  temperature  compensation  of  the  scatt^ing 
sensor.  We  submultiplex  the  positive  supply  voltage  and  ground  so  that  each  is  transmitted  3  times 
per  second;  Q12  of  the  4020  switches  between  the  positive  supply  voltage  and  ground  at  3  Hz. 

The  output  of  the  4051  is  fed  into  the  2209  Voltage  Controlled  Oscillator  (VCO)  which  gives 
us  500  to  1500  Hz  signals  for  0  to  5  Volts  input.  An  analog  switch,  1/3  of  the  4053,  operates  as  a 
sync  gate,  interrupting  the  VCO  output  every  83  milliseconds  with  a  sync  pulse.  The  sync  pulses 
allow  us  to  synchronize  the  data  receiver  with  software.  The  output  of  the  sync  gate  is  fed  into  a 
358  dual  operational  amplifier  which  differentially  drives  the  wire  data  link. 

The  light  scattering,  water  temperature,  and  body  temperature  output  voltages  are  all  linear 
functions  of  the  supply  voltage.  The  relationship  between  the  VCO  output  frequency  and  input 
voltage  is  also  linear.  Thus,  if  the  scattering  meter  is  calibrated,  turbidity  or  sediment 
concentrations  can  be  computed  directly  from  scattering  fi^quency,  positive  supply  frequency,  and 
ground  frequency.  Similarly,  water  temperature  and  probe  body  temperature  can  be  comput^. 

The  probe  body  temperature  can  be  used  to  correct  for  errors  caused  by  the  temperature  coefficient 
of  the  scattering  sensor. 

The  Phase  I  desi^  of  the  telemetry  receiver  hardware  did  not  require  changing  for  the  five- 
channel  system.  The  schematics  for  this  hardware  are  shown  in  Figures  6,  7,  and  8.  The  only 
change  we  made  at  this  time  was  removing  the  Frame  Sync,  which  we  found  unnecessary. 
Preliminary  software  for  the  five-channel  system  was  written  at  this  time;  the  program 
NEWEXP.PAS,  written  in  Turbo  Pascal,  is  found  in  Appendix  C. 


SECTION  2,  WORK  FUNDED  BY  ONR,  AUGUST  AND  SEPTEMBER  1991 


During  the  first  two  months  of  Phase  II,  we  breadboarded  the  five-channel  telemetry  system 
and  ran  some  preliminary  tests.  The  frequency  response  of  the  equalization  network  was  measured 
and  is  shown  in  Figure  9.  The  peak  response  is  in  the  middle  of  the  500-1500  Hz  band  over 
which  we  transmit  data.  Noise  outside  this  band  is  effectively  filtered  out. 

We  sent  and  received  five  channels  of  data  through  the  telemetry  system  at  the  designed  rates 
(12  times  per  second  for  the  water  temperature  and  light  scattering  channels).  Our  inputs  into  the 
scattering,  water  temperature,  and  probe  body  temperature  channels  of  the  telemetry  transmitter 
were  known  voltages.  Figure  10  shows  that  were  able  to  accurately  determine  the  input  voltages 
from  the  received  frequencies  for  voltages  between  0  and  6  volts. 

The  noise  of  the  breadboarded  telemetry  system  can  also  be  seen  in  Figure  10.  It  is  about  3 
millivolts  for  6  Volts  full  scale,  or  0.03%.  This  gave  us  an  early  idea  of  what  to  expect  for  our 
noise  floor,  although  this  was  neither  a  best  case  nor  a  worst  case  test  On  the  one  hand  we  expect 
that  the  noise  level  of  the  telemetry  system  itself  will  go  down  when  we  lay  out  the  circuitry 
carefully  on  a  printed  circuit  board,  but  on  the  other  hand  we  expect  the  scattering  sensor,  with  its 
750  Hz  switching  of  50  mA  current  to  cause  ground  loop  problems,  and  possibly  raise  the  noise 
floor. 


FIGURES  1  to  10 


Figure  2  Calibration  of  Scatto’ing  Sensor  with  Clay  at  Low  Gain  for  ExteiKled  Range 


Concentration  of  Clay  (Grams  per  Liter) 


Figure  3  Calibration  of  Scattering  Sensor  with  Hebble  Mud  at  High  Gain  for  High  Sensitivity 
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Appendix  A 


Detailed  Description  of  Siensor  for  Expendable  or  Non-Expendable  Probe 

The  light  scattering  sensor  is  shown  in  Figure  1.  This  sensor  consists  of  a  light 
emitting  diode  (LED)  source  1  modulated  at  approximately  750  Hz  and  driven  with  50 
milliamps  of  current  resulting  in  a  power  output  of  approximately  10  milliwatts.  The 
light  source  is  encapsulated  in  an  optically  clear  epoxy  9.  The  light  projects  through  the 
epoxy  medium  into  the  water  towards  the  light  detector  3.  The  light  is  refracted  at  the 
water-epoxy  interface  4.  Due  to  refraction  the  light  ray  ranges  from  approximately  90°  at 
the  top  point  5  of  the  sample  volume  of  water  to  approximately  12*  at  the  lower  point  6  of 
the  sample  volume  7.  The  scattered  light  from  particulate  matter  in  the  sample  volume  is 
measur^  by  the  solar  blind  light  detector  3  which,  like  the  light  source,  is  encapsulated 
in  epoxy  9.  The  light  detector  water-epoxy  interface  refracts  the  scattered  rays  of  light 
from  the  sample  volume  toward  the  detector  8.  The  light  stop  2  blocks  direct  light  from 
the  light  source  so  the  detector  only  measures  the  forward  scattered  light  from  the  sample 
volume  7.  The  light  emitting  diode  1  used  is  an  infrared  source  emitting  at  a  wavelen^h 
of  880  nm.  In  the  improved  version  of  the  scattering  sensor  two  LED's  are  connected  in 
series  and  mounted  side  by  side  to  double  the  light  output  of  the  light  source.  The  light 
detector  3  is  a  silicon  detector  equipped  with  a  light  filter  designed  to  block  visible 
radiation;  this  prevents  detector  saturation  from  ambient  light.  The  components  are 
connected  to  a  printed  circuit  board  10.  This  simple  and  adaptable  sensor  module  can  be 
packaged  in  either  a  non-expendable  probe  or  the  Sparton  expendable  probe.  The  radius 
of  the  face  of  the  module  need  only  be  the  same  as  that  of  the  probe  in  which  it  is  housed. 


Figure  1  Underwater  Forward  Light  Scattering  Sensor 


Appendix  B 


Performance  of  Forward  Light  Scattering  Sensors  in  High  Concentrations 

of  Suspended  Sediment 


We  tested  three  forward  light  scattering  sensors  with  different  pathlengths  to  evaluate 
their  response  in  high  concentrations  of  suspended  solids.  The  optical  design  for  ail  three 
sensors  are  similar  to  that  shown  in  Figure  1. 


Figure  1.  Forward  Scattering  Sensor  Optical  Diagram 

An  880  run  LED  and  a  detector  are  potted  in  clear  epoxy;  a  light  stop  prevents 
light  from  the  LED  from  reaching  the  detector  directly  through  the  epor^.  The 
epoxy  and  water  interface  refracts  the  LED  light  in  the  forward  direction.  The  LED  light  is 
scattered  by  the  particles  in  the  sample  volume  and  some  of  the  scattered  light  reaches  the 
detector.  The  amount  of  scattered  light  received  by  the  detector  is  proportional  to  the 
concentration  of  suspended  material  in  the  wato:  until  the  suspended  material  in  water 
reaches  very  high  concentrations.  The  range  over  which  the  sensor  operates  linearly 
depends  on  the  distance  traveled  through  water  by  the  detected  light 

Since  a  given  ray  which  reaches  the  detector  can  be  scattered  from  a  particle  anywhere 
in  the  sample  volume,  a  range  of  pathlengths  are  possible.  In  this  report,  we  characterize 
the  forward  light  scattering  sensors  by  the  minimum  pathlength  a  ray  of  light  from  the  ^D 
can  travel  and  reach  the  detector.  If  total  internal  reflection  can  occur  (as  shown  in  Figure 
IX  then  the  minimum  pathlength  is  the  distance  between  the  two  points  along  the  water  and 
e^xy  interface  where  total  internal  reflection  occurs.  If  the  light  stop  prevents  total  internal 
reflection,  then  the  minimum  pathlength  is  the  width  of  the  light  stop  multiplied  by  the 
cosine  of  the  angle  of  a  ray  incident  on  the  edge  of  the  light  stop. 

We  calibrated  the  three  forward  light  scattering  sensors  with  minimum  pathlengths  of 
apfxoximately  2.5  millimeters,  7.5  millimeters,  and  25  millimeters,  and  a  5  centimeter 
transmissometer  with  modeling  clay.  To  avoid  saturation  at  the  large  concentration  levels, 
it  was  necessary  to  reduce  the  gain  of  the  2.5  and  7.5  millimeter  minimum  pathlength 
sensors  by  a  factor  of  500  from  the  gain  used  for  open  ocean  profiling.  The  gain  of  the  25 
millimeter  minimum  pathlength  sensor  was  reduced  by  a  factor  of  100.  Figure  2  is  the 
calibration  of  the  light  scattering  sensors;  Figure  3  is  a  calibration  of  the  transmissometer. 
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Figure  2.  Calibration  of  Forward  Light  Scattering  Sensors  with  Modeling  Clay 


^  Sediment  Concentration  (Grama  per  Liter) 

Figure  3.  Calibration  of  a  5  Cenr  ier  Transmissometer  with  Modeling  Clay 

The  calibrations  show  that  the  forward  light  scattering  sensors  were  all  able  to  measure  the 
clay  concentrations  linearly  to  above  .5  grams  per  liter,  which  is  beyond  the  limits  of  the 
transmissometer.  At  .45  g^ms  per  liter,  the  transmissometer  output  was  only  one 
millivolt  The  scattering  sensor  with  a  2.5  millimeter  minimum  pathlength  was  linear  up  to 
tihe  highest  sediment  concentrations  against  whidi  it  was  calibrated  ~  over  3  grams  p^ 
liter.  The  scattering  sensor  with  a  7.5  millimeter  pathlength  operated  linearly  to 
approximately  1  gram  per  liter,  and  the  scattering  sensor  with  a  25  millimeter  minimum 
pathlength  was  linear  to  about  .5  grams  per  liter. 


We  can  produce  curves  similar  to  those  in  Figure  2  using  a  simple  model.  This  model 
assumes  that  absorption  is  the  parameter  which  limits  the  linearity  of  the  scattering  sensor. 
When  sediment  concentrations  become  high  enough  that  a  significant  portion  of  tite  light 
scattered  in  the  direction  of  the  detector  is  absorb^  the  output  of  the  scattering  sensor  is 
no  longer  linear  with  increasing  concentrations.  We  determined  the  relationship  between 
concentration  of  the  clay  and  tte  attenuation  coefficient,  c,  from  low  concentration  data 
points  from  the  calibration  of  the  transmissometer: 

c  =  0.34  +  320*conc 

We  estimate  the  absorption  coefficient,  a,  due  to  particles  in  the  water  to  be  an  order  of 
magnitude  less  than  the  attenuation  coefficient  due  to  particles  in  the  water: 

a  =  0.34  +  32*conc 

We  then  assume  that  the  scattered  light  received  by  the  detector  is  some  constant  multiple  of 
the  sediment  concentration  multipli^  by  a  loss  factor  due  to  absorption.  Therefore: 

V  =  k*conc*exp(-z*a) 

where  V  is  the  sensor  output,  k  is  some  constant,  and  z  is  the  minimum  pathlength  of  the 
sensor.  Using  these  equations,  we  generated  a  curve  for  output  versus  sediment 
concentration  for  each  of  the  three  sensors.  The  plot  is  shown  in  Figure  4. 


0  12  3  4 

S«dlmwTt  Conewrtnilon  (OraiM  par  Liter) 

Figure  4.  Theoretical  Sensor  Output  Based  on  a  Simple  Model 

The  shapes  of  the  curves  are  similar  to  those  in  Figure  2.  Therefore,  it  appears  that  this 
model  may  describe  the  situation  fairly  well.  Calibrating  the  sensors  along  with  an 
absorption  meter,  so  that  the  absorption  coefficient  was  measured,  would  allow  us  to  better 
assess  this  model. 


Appendix  C 


program  Newexp; 

program  to  test  interface  to  expendable  scattering  meter} 

{updated  7/17/91  MJB} 

Uses  DOS,  CRl , 
const 

iobase  =  $340; 
ctIReg  =  iobasc+3; 
statByte  =  iobase+4; 

maxftime  =  150; 

type  grpArray  =  array[0..3,1..3]  of  real; 

var  ch:  char; 
btrbyte; 
i,j:word; 

infreqs,  volts:grparray; 
ctimes:aiTay[1..3]  of  integer; 
counttime,  cnanpd:  integer; 
framesum:  longint; 
c,d,fscale,f0:  real; 

Procedure  SctGateTime(counts;word); 

Begin 

port[ctlreg]:=  $B2;  {sets  mode  1} 

Delay(3); 

Port[iobase+2]:=  counts  and  255; 
port[iobase-f2j:=  (counts  div  255); 

End; 

Function  Freq:  Real; 
var  th,tl:byte; 

tcount,incount:word; 

ctime:real; 

Begin 

port[ctlreg]:=  $30;  {set  time  counter  0  for  mode  0} 

Dclay(l); 

port[iobase]:=  0;  {set  initial  count  to  0000} 
port{iobasc]:=  0; 

{now  set  up  the  input  counter} 
port[ctlreg]:=  $70;  {counter  1  to  mode  0} 

Delay(l); 

port[iobase+l]:=  $0; 
port[iobase-f  1]:=  $0; 

{now  open  the  gate  for  preset  time} 

TOTt[iobase-(-4]:=0;  {trigger  the  count} 

Delay(lO);  {wait  for  gate  to  open} 

repeat  until  (port[statbyte]  and  8)^;  {wait  for  gate  to  close} 

tl:=  port[iobue]; 

th;=  port[iobase];  {read  the  count— gate  is  closed} 
tcount:=  65536-{th*256+tl); 
ctime;=  0.4999*tcount; 


tl:=  port[iobase-f  1];  {read  low  count  from  input} 
th:=  port[iob^-fl]; 
incount.'s  65536-(th*256+tJ); 

If  ctime  >  0  then 
freq:=  incount/ctime^led 
else  freq  :=  5000; 

counttinie:=  trunc((ctinie+500)/1000); 

End; 

Procedure  FrameSync; 

{sync  goes  low  after  10  msec  of  no  input  pulses  from  wire} 
var  stime:integer; 

Begin 

stime:=  0; 

Repeat 

Delay(l); 

inc(stime); 

until  ((port[statbyte]  and  2)=0)  or  (stime  >1000);  {wait  for  sync  low} 
Repeat 

inc(stime); 

{Delay(l);} 

until  ((port[statbyte]  and  2)=2)  or  (stime  >  1000);  {wait  for  sync  high} 

end; 

Function  Frameinterval:  integer; 
var  ftime:  integer; 

Begin 
ftime:=  10; 

FrameSync;  {wait  for  first  sync  pulse} 

Delay(ftime);  {can't  handle  frame  time  less  than  10  msec  anyway} 

Repeat 

inc(ftime); 

Delay(l); 

until  ((port[statbyte]  and  2)5=0)  or  (ftime  >  maxftime);  {wait  for  sync  low} 
Repeat 

inc(ftime); 

Delay(l); 

until  ((port[statbyte]  and  2)=2)  or  (ftime  >  maxftime);  {wait  for  sync  high} 
Framelntcrval:5=  ftime; 

End; 

Procedure  ReadFreqs; 
var  i,group,  dtime:  integer; 

Begin 

for  group;=:  0  to  1  do 
Begin 

FrameSync; 

Delay(l); 
for  i:=  1  to  3  do 
Begin 
Delay(l); 

infre^[group,i]:=  freq; 
ctimes[i]:s  counttime; 


Dtime  :=chanpd-counUimc-4; 

If  dtime  >  0  then  dciay(dtime); 

End; 

end; 

End; 

Procedure  WriteGroup(gidx:  integer); 
var  i:  integer; 

Begin 

for  i:=  1  to  3  do 
Begin 

Write(infreqs[gidx,i]:8:2); 

End; 

End; 

Procedure  Write VGroup(gidx:integer); 
var  irinteger; 

v,f:  real; 

Begin 

for  i:=  1  to  3  do 
Begin 

f:=  infreqs[gidx,i]; 

v:=(f-fl))/fscale; 

Write(v;8:3); 

End; 

End; 

Procedure  WritcResuIts; 
var  i,j,  grpidx,  outidxnnteger; 

f5:real; 

Begin 

{find  sync  phasing  so  gnd  is  in  freq  3  of  first  group 
and  vcc  is  in  freq  3  of  third  group  } 
grpidx:=  0; 

for  i  ;=  0  to  1  do 
begin 

j:=  (i+1)  and  1;  {rolls  over  above  1} 
if  (infrcqs[i,3]>1000)  and  (infreqs[j,31>800)  then  grpidx 
end; 

fD:=  in£reqs[grpidx,3]; 

f5:=  in£reqs[(grpidx-f  1)  and  1,31; 

Gotoxy(l,24); 

Clrcol; 

Writc(f0:8:2,  f5:8:2,fscale:8:2); 
fecale:=(f5-f0)/6.2; 

Gotoxy(l,5); 
outidx:=  gipidx; 

WritcGrou^outidx); 

Gotoxy(31,5); 
outidx:=  (grpidx+l)  and  3; 

WritcGroup(outidx); 


gotoxy(66,6); 

for  i:=:  1  to  3  do  write(ctimes[i];4); 


Gotoxy(l,8); 
outidx:=  grpidx; 
WritcvGroup(outidx); 

Gotoxy(31,8); 
outidx:=:  (^idx+1)  and  3; 
WritevGroup(outidx); 


end; 

Procedure  DoFrameCheck; 

Beein 

ClrScr; 

WriteInCChecking  for  proper  frame  sync  pulses.'); 

£ramesum:=  (firameinterval+Framelnterval+framelnterval)  div  3; 

If  (framelntervai  <  60)  or  (framelnterval  >  120)  then 

Begin 

WritelnCBad  Frame  Interval  C.frameinterval,')'); 
framesum:=  80;  {default  value} 

End; 

WriteCFrame  interval  = framesum); 
chanpd:=  framesum  div  4; 

WritelnC  Channel  Period  =  '.chanpd); 

End; 

Procedure  DoGetData; 
var  ch:  char; 

Begin 

WriteCPress  any  key  to  end  data  display.'); 
repeat 

ReadFreqs; 

WriteResults; 
until  keypressed; 
ch:=  readkey; 

End; 

Procedure  DoSetGate; 
var  dcint:real; 

Begin 

WriteCData  Collection  interval  in  milliseconds: '); 

Readin(dcint); 

Setgatctime(trunc(dcint*2000));  {for  500  khz  clock} 

End; 

Procedure  ShowMenu; 

Begin 

Gotoxy(l,16); 

Writcln(Trogram  Options:'); 

WritelnC  F:  Frame  Interval  Check'); 

WritelnC  D;  Data  Display'); 

WritelnC  G:  Set  Gate  Interval'); 

WritelnC  0:  Quit'); 

WriteC&lect  one  by  letter: ') 


End; 


Begin 

SetGateTime(65(X)); 

DoFrameCheck; 

Repeat 

ch:="; 

ShowMenu; 

ch:=  upcase(Readkey); 

Gotoxy(l,23); 

ClrEol; 

Case  ch  of 

'F:  DoFrameCheck; 

'D':  DoGetData; 

'G':  DoSetGalc; 

End; 

until  ch=  'O' 

End. 


